home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / BTH2SRC.ZIP / MAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-03  |  8KB  |  114 lines
  1. { TheDraw Pascal Crunched Screen Image.  Date: 12/03/95 }
  2. procedure mainansi;
  3. const
  4.   IMAGEDATA_WIDTH=80;
  5.   IMAGEDATA_DEPTH=24;
  6.   IMAGEDATA_LENGTH=1766;
  7.   IMAGEDATA : array [1..1766] of Char = (
  8.     #15,#16,#25, #9, #9,'▄',#25, #4, #8,#26, #4,'▄',#26, #5,'█',#26, #5,
  9.     '▄',#25, #3, #9,'▄','▄',' ',' ', #1,'▓','▄',#25, #5,#10,'▀','▀',#18,
  10.     '█','▀','▓',#16,'▓','▄','▄',#25, #2, #1,'▄', #9,#17,'░', #1,#16,'▄',
  11.     ' ','▀','▄',' ', #9,'▄',' ',' ','▄',#24,' ',' ', #1,'▄', #9,#17,'░',
  12.      #1,#16,'▄',' ','▀','▄',#25, #2, #8,'▄','▄',#26,#23,'█','▄','▄','▄',
  13.     #25, #2, #1,'■','▄',' ',' ', #9,'▀',#25, #2,#10,#18,'▓', #2,#16,'█',
  14.     #10,#18,'▒', #2,#16,'█','▀',#10,#18,'▓','▒',#16,'▀',' ',' ', #1,'▀',
  15.     ' ',' ','■',' ', #9,'▀','▓','▀',' ',' ', #1,'▄','▄',#17,' ', #9,'▄',
  16.     #16,'█','▄',#24,#25, #2, #1,'▀',#25, #4, #8,'▄',#26,#28,'█',#23,'█',
  17.     #16,'█','█','▄',#25, #3, #9,'▄',#25, #2,#10,#18,'▓', #2,#16,'█',#10,
  18.     #18,'░', #2,#16,'█',' ','▐',#10,#18,'░',#16,' ',#18,'█','▀','▓', #2,
  19.     #16,'█','▄','▄','▄',' ',' ', #1,'■',' ','▐', #0,#17,'░', #9,'■',#16,
  20.     '▀',' ',' ',#23,'▓','█',#24,#16,#25, #2, #1,'▄','▓',' ',' ', #8,'▄',
  21.     #26,#31,'█',#23,'█','█',#16,'█','█','▄',' ', #9,'▀','▓','▀',' ',' ',
  22.     #10,#18,'▒', #2,#16,'█','█','█',' ',' ',#10,#18,'░',#16,' ',#18,'▓',
  23.      #2,#16,'█',#10,#18,'▒', #2,#16,'█',' ',' ',#10,'▄','▄', #2,'▄','▄',
  24.     ' ', #1,'▀', #9,#17,'░', #1,#16,'▀','■',' ',' ', #9,'▐',#23,'▓',#16,
  25.     '▌',#24,#25, #5, #8,#26,'#','█',#23,'█',#16,'█','█','▌',#25, #2, #9,
  26.     '▀',' ',#10,#18,'▒', #2,#16,'█',#15,#18,'b', #2,#16,'█',' ',' ','█',
  27.     ' ',#10,#18,'▓', #2,#16,'█',#10,#18,'░', #2,#16,'█',' ',' ',#10,#18,
  28.     '▓', #2,#16,'▀','▀','▀',' ',' ', #8,'.','s','c','.', #9,'▄','█',#23,
  29.     '▓',#24,#16,' ', #1,'▄','■', #9,'▀',' ', #8,'▐',#26,'$','█',#23,'█',
  30.     '▒',#16,'█',#25, #4,#10,#18,'░', #2,#16,'█','█','█',' ',' ', #8,#18,
  31.     '░',#16,' ',#10,#18,'▒', #2,#16,'█','█','█',' ',' ',#10,#18,'▒',#16,
  32.     ' ',#18,'█','▀','▓', #2,#16,'█','▄',' ', #1,'▄', #9,#17,'▄',#23,'▓',
  33.     #16,'▀',' ','▄',#23,'▓',#24,#16,#25, #4, #8,#26,#29,'█','▀','▀','▀',
  34.     #26, #3,'█',#23,'▀','▓','▒','░',#16,' ', #1,'▄', #9,'■',' ',' ', #2,
  35.     #26, #3,'█',' ','▐', #8,#18,'▒',#16,' ',#10,#18,'▒',' ',#15,'t', #2,
  36.     #16,'█',' ',' ', #8,#18,'░',#16,' ',#10,#18,'▓', #2,#16,'█',#10,#18,
  37.     '▒', #2,#16,'▀', #0,#17,'▀','░', #9,'▐',#16,'▀', #1,'▄', #9,'▄',#17,
  38.     '█','▀',#16,'▀',#24,' ',' ', #1,'▄','▓',' ', #8,#26,#28,'█','▌',#12,
  39.     '▐',#23,'█',#22,'▄', #6,#16,'▄',' ', #8,'▀','█','█',#23,'▓','░','▄',
  40.     #16,#25, #4, #2,'▀','█','█','█','▄', #8,#18,'▐','▓',#16,' ',#10,#18,
  41.     '░', #2,#16,'█','█','█',' ',' ', #8,#18,'▒',#16,' ',#10,#18,'▓', #2,
  42.     #16,'█',#10,#18,'░', #2,#16,'▌', #1,'▀', #0,#17,'░', #1,#16,'▄', #0,
  43.     #17,'░','▄', #1,#16,'▀',#24,#25, #2,'▀',' ', #8,'▐',#26,#26,'█','▀',
  44.     #12,'▄',#26, #3,'█',#22,'░', #6,#16,'▄', #8,'▀','█',#23,'▒','░',#16,
  45.     '▌',#25, #7, #2,'▀','▀', #8,'▀','▀',' ', #2,#26, #3,'█',' ','▐', #8,
  46.     #18,'▒',#16,' ',#10,#18,'▒', #2,#16,'█','█','█',' ',' ','▄',#10,'▄',
  47.      #2,'▄','█',#24,' ', #9,'▀',' ',' ', #1,'▐',' ', #8,#26, #8,'█','▀',
  48.     #12,'▄', #6,'▄','▄', #8,'▀','▀',#26, #9,'█','▀',#12,'▄','█',#23,'█',
  49.     #16,#26, #4,'█',#22,'▌', #6,#16,'▌', #8,'▐',#23,'▒', #7,#16,'▓',' ',
  50.      #1,'▀',#25, #2,'▄', #9,#17,'▒', #1,#16,'▄',' ','▀',#25, #3, #2,'▀',
  51.     '█','█','█','▄','█', #8,#18,'▓',#16,' ',#10,#18,'▒', #2,#16,'█',#15,
  52.     #18,'h', #2,#16,'█',' ',' ','█',#10,#18,'▒', #2,#16,'█','█',#24,' ',
  53.      #1,'▓','▌',#25, #2, #8,'▐','█','█','█','▓','█','█','█',' ',#12,'█',
  54.     '█','█',#22,'█','▄','░',#16,' ', #8,#26, #3,'█','▀','▀','▀',#12,'▄',
  55.     '▄',#26, #8,'█',#22,'▒',#16,' ', #8,#23,'▒', #7,#16,'▀',#25, #2, #1,
  56.     '▀',#25, #2,'▀',#25, #2,'▀',' ', #9,'▄',#25, #3, #2,'▀','▀', #8,'▀',
  57.     '▀',' ',#10,#18,'░', #2,#16,'█','█','█',' ',' ','█',#10,#18,'░', #2,
  58.     #16,'█',#19,'▓',#24,#16,' ',' ', #1,'▀','▄','■',' ',' ', #8,'▀',#26,
  59.      #5,'█','▌',#12,'▐',#26, #5,'█',#26, #3,'▄',#26, #3,'█','▀','▀','▀',
  60.     ' ','▄',#26, #3,'█',#22,'▓',#16,' ', #7,'▀',#25, #3, #9,'▄',' ',' ',
  61.      #1,'▀',' ',' ','▄','▓','▄',' ', #9,'▀','▓','▀',' ', #1,'▀', #9,'▀',
  62.     ' ',' ', #1,'▐',' ',' ', #2,#26, #3,'█',' ',' ','█',#10,#18,'░', #2,
  63.     #16,'█',#19,'▒',#24,#16,#25, #8, #8,'▀','▓','▓','█','▓','█','▄',#12,
  64.     '▀',#26,#19,'█','▀','▀',#25, #7, #1,'▄','▓','▄',' ',' ','▄',' ',' ',
  65.     '■',#25, #2, #9,'▀',' ', #1,'▀','▌',#25, #3, #2,#26, #3,'█',' ',' ',
  66.     '█','█', #3,#18,'▄', #2,#19,'▒', #3,#16,'▄','▄',#24,' ', #1,'▀',#25,
  67.      #2,'▄', #9,#17,'▒', #1,#16,'▄',#25, #3, #8,'▀','█','█',' ',#12,#26,
  68.     #17,'█','▌',#25, #2, #1,'▄',' ',' ','■','▓','▀',' ',' ', #9,'▀',' ',
  69.      #1,'▀','▓','▄','▄',' ',' ', #7,#26,#18,'▄', #3,'▄', #7,'▄', #3,'▄',
  70.      #7,#19,'░',#24,#16,' ',' ', #1,'▀',#25, #2,'▀',#25, #3, #9,'▀',#25,
  71.      #2,#12,#26, #3,'█',#22,'▀',#16,'▀',#26,#13,'█','▄',' ', #1,'▀','█',
  72.     '▀',#25, #4,'▄',' ', #9,'▀',#25, #4, #7,'█', #8,'░','░',#25, #9,'░',
  73.     ' ','░','░',#15,'▄',' ','▄','▄', #8,'░','░', #7,#19,'▒',#24,#16,' ',
  74.      #9,'▄',' ',' ', #1,'▀',' ',' ','▄','▓','▀',' ',' ',#15,#26, #3,'▄',
  75.     #12,'▀','▀','█','█',#22,'░', #6,#16,'▄',#12,'▀',#26,#10,'█','▀',#25,
  76.      #6, #9,'▀',#25, #2, #1,'▄',' ',' ', #9,'▄',#25, #2, #7,'█', #8,'░',
  77.     #25,#17,#15,'▀','█', #8,'░', #7,#19,'▓',#24,#16,' ',' ', #1,'▄','▓',
  78.     '▄',#25, #4,#15,'▄','▄','▄', #7,'▄',#15,'▀','▀','█','█','▄','▄','▄',
  79.      #6,'▀', #1,'▄','▄',' ',#12,'▀','▀',#26, #3,'█','▀','▀', #8,'▄',#25,
  80.      #4, #1,'▀','▓','▄','▄',' ',' ', #9,'▀',#17,'▓', #1,#16,'▀','▄',' ',
  81.     ' ','▀',' ', #8,#23,'░',#16,'░',#25,#18,#15,'▐', #8,'░',#23,'░',#24,
  82.     #16,#25, #2, #1,'▀',' ',' ', #9,'▀',' ',#15,'▄','▄','█','█','▀','█',
  83.     '█','█', #7,'▄','▄','▄',#15,'▄', #7,'▄', #1,'▀','▀', #6,'▄','█', #8,
  84.     #22,'▀','▓',#16,'▄','▄', #6,'▄','▄','█', #8,#22,'▀','▓','▀','▀',#16,
  85.     ' ','▄','▄',#25, #3, #1,'▄',#25, #6,'░',' ', #8,#23,'░',#16,'░','▌',
  86.     #25,#17,#15,'▐', #8,'░',#23,'▒',#24,#16,' ', #9,'▀',' ', #1,'▄','■',
  87.     ' ',#15,'▄','█','█','█',#23,'▀',#16,' ',#26, #5,'█',#23,'▒',#16,'█',
  88.     '▄', #6,'▀',#26, #7,'█',' ',#26, #5,'█','▄','▀', #8,'▓',#22,'▀', #6,
  89.     #16,'▄',#25, #2, #1,'■',' ', #9,'▄',' ',' ', #1,'▀','▓',' ', #8,#23,
  90.     '▒',#16,'░','▌',#25,#18,'░',#23,'▒',#24,#16,' ',' ', #1,'▀',' ',' ',
  91.     #15,'▄',#23,'▓',#16,#26, #3,'█', #7,'▓','▄',#15,'▀','█','▀',#26, #5,
  92.     '█','▄', #6,'▀','▀',#26, #3,'█','▌','▐',#26, #6,'█','▌','▐','█','█',
  93.     '█','▄',#25, #2, #1,'▄',' ', #9,'▓',#25, #2, #8,#23,'▒',#16,'░','█',
  94.     '▄',#25,#17,'░',#23,'▒',#24,#16,' ', #1,'▓',' ',' ',#15,'▄',#23,'▓',
  95.     #16,#26, #5,'█',#23,'▄', #7,#16,'█',' ',#15,#26, #5,'█','▀', #7,'▄',
  96.     '▓',#15,'▀', #7,'▄',#15,'▄', #6,'▀','▀',' ',' ','█','█','█','▀','▀',
  97.     '▀', #7,'▄','▄', #6,'▀',#12,#26, #3,'▄','▀','▄',#25, #6, #8,#23,'░',
  98.     #16,'░','░','▀','▀',' ','▀','░','░',' ','░',' ','░',#25, #5,'░',' ',
  99.     '░','░',#23,'░',#24,#16,' ', #1,'▐',' ', #7,'▄',#15,#23,'▒',#16,'█',
  100.     #23,'▀',#16,#26, #3,'█',#23,'█',#16,'█',#23,'▌', #7,#16,'▌',#15,'▐',
  101.     #26, #3,'█','▌', #7,'▐',#15,'█', #7,'▄','▓',#15,#26, #4,'█',#26, #3,
  102.     '▄',#26, #3,'█',#23,'▌', #7,#16,'▌',#12,'▐','█','█',' ','▄','█','▀',
  103.      #6,'▄', #1,'▀','█','█',#25, #2, #7,#26,#21,'▀',#24,' ',' ','▄',#15,
  104.     #23,'░','▀',' ','▐','█',#16,#26, #5,'█', #7,'▓','▄',#15,'▀',#26, #3,
  105.     '█',#23,'▓','█',#16,#26,#15,'█',#23,'░',#16,' ',#12,'█','█','█','▄',
  106.     '▄',#22,'▄','░', #6,#16,'▄', #1,'▀','▓',#25, #5, #8,#26,#11,'▀',' ',
  107.     #10,'▀',' ', #8,'▀',#24,' ', #7,'▐',#26, #3,'█',#23,' ',#15,'▀',#26,
  108.      #3,'█','▀','▌',' ',' ', #7,#16,'█','▄',#15,'▀',#23,'▒',#16,'▓','▀',
  109.     #26,#16,'█',#23,'▌',#16,' ',#12,#26, #4,'█',#22,'▓','▒', #6,#16,'▌',
  110.     #25, #2, #8,#26, #3,'.', #7,'b','e','y','o','n','d',#15,'t','h','e',
  111.     'h','o','r', #7,'i','z','o','n','!','?', #8,#26, #3,'.',#24);
  112. begin;
  113.      UnCrunch (IMAGEDATA,ScreenAddr[ (1*2) + (1*160) -162],IMAGEDATA_LENGTH);
  114. end;